﻿' ******************************************************************************
' ** 
' **  Yahoo! Managed
' **  Written by Marius Häusler 2011
' **  It would be pleasant, if you contact me when you are using this code.
' **  Contact: YahooFinanceManaged@gmail.com
' **  Project Home: http://code.google.com/p/yahoo-finance-managed/
' **  
' ******************************************************************************
' **  
' **  Copyright 2011 Marius Häusler
' **  
' **  Licensed under the Apache License, Version 2.0 (the "License");
' **  you may not use this file except in compliance with the License.
' **  You may obtain a copy of the License at
' **  
' **    http://www.apache.org/licenses/LICENSE-2.0
' **  
' **  Unless required by applicable law or agreed to in writing, software
' **  distributed under the License is distributed on an "AS IS" BASIS,
' **  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' **  See the License for the specific language governing permissions and
' **  limitations under the License.
' ** 
' ******************************************************************************


Namespace YahooManaged.Search.BOSS


    Public Class NewsSearchResult
        Inherits SearchResult

        Private mCrawlingDate As DateTime
        Private mLanguage As YahooManaged.Language
        Private mSource As String = String.Empty
        Private mSourceUrl As Uri

        Public ReadOnly Property Source() As String
            Get
                Return mSource
            End Get
        End Property
        Public ReadOnly Property SourceUrl() As Uri
            Get
                Return mSourceUrl
            End Get
        End Property
        Public ReadOnly Property CrawlingDate() As DateTime
            Get
                Return mCrawlingDate
            End Get
        End Property
        Public ReadOnly Property Language() As YahooManaged.Language
            Get
                Return mLanguage
            End Get
        End Property

        Friend Sub New(ByVal result As SearchResult, ByVal source As String, ByVal sourceUrl As Uri, ByVal crwDate As DateTime, ByVal language As YahooManaged.Language)
            MyBase.New(result.Title, result.Abstract, result.Url, result.ClickUrl)
            mSource = source
            mSourceUrl = sourceUrl
            mCrawlingDate = crwDate
            mLanguage = language
        End Sub

    End Class

End Namespace